// Notes Application addition for PaperPak by iambic
application "paperroll" called "Notes"

// Notes Soup
//
// PaperPak.adf file for RCU 2.1
// version 1.1 09-03-96
// by Paolo Alberto Casadio
// e-mail: pacasadio@linknet.it
// Compuserve: 72431,362

class "PersonalNote:PaperPak" called "PP Personal Note" of "Notes" contains
	{
	timestamp: datetime called "Date" default ""
	title: string called "Title"
	|PersonalNote:PaperPak|: entry called "Header" contains 
			{
			memotitle: string called "Source"
			}
	data: note called "Note"
	viewstationary := symbol "PersonalNote:PaperPak"
	height := value 200
	}
	
class "Directions:PaperPak" called "PP Directions" of "Notes" contains
	{
	timestamp: datetime called "Date" default ""
	title: string called "Title"
	name: string called "Name"
	address: string called "Address"
	topics: array called "Directions" with options { "checklistnote" "required" } { entry called "Directions" contains 
			{
			mtgDone := nil
			hideCount: integer called "Hide Count" default "0"
			level: integer called "Level" default "1"
			text: text called "Text" with options { "automatic" }
			viewbounds := bounds { 0 0 200 30 }
			}
		}
	data: note called "Note"
	viewstationary := symbol "Directions:PaperPak"
	height := value 200
	}
	
class "OfficeMemo:PaperPak" called "PP Office Memo" of "Notes" contains
	{
	timestamp: datetime called "Date" default ""
	title: string called "Title"
	name: string called "To"
	cc: string called "CC"
	from: string called "From"
	Date: date called "Date"
	ref: string called "Re"
	data: note called "Note" with options { "required" "automatic" }
	viewstationary := symbol "OfficeMemo:PaperPak"
	height := value 200
	}

class "NamedNote:PaperPak" called "PP Named Note" of "Notes" contains
	{
	timestamp: datetime called "Date" default ""
	title: string called "Title"
	|NamedNote:PaperPak|: entry called "Header" contains 
			{
			name: string called "Name"
			}
	notes: note called "Note" with options { "required" "automatic" }
	data := nil
	viewstationary := symbol "NamedNote:PaperPak"
	height := value 200
	}

class "TwoColumn:PaperPak" called "PP Two Column Note" of "Notes" contains
	{
	timestamp: datetime called "Date" default ""
	title: string called "Title"
	data: note called "Column 1" with options { "required" "automatic" }
	data2: note called "Column 2" with options { "required" "automatic" }
	viewstationary := symbol "TwoColumn:PaperPak"
	height := value 200
	}

class "PhoneMsg:PaperPak" called "PP Phone Message" of "Notes" contains
	{
	timestamp: datetime called "Date" default ""
	title: string called "Title"
	name: string called "Name"
	address: string called "Address"
	|PhoneMsg:PaperPak|: entry called "Elements" contains 
			{
			msgTime: datetime called "Message Time"
			personsTitle: string called "Title"
			name: string called "Name"
			company: string called "Company"
			phone: string called "Phone"
			fax: string called "Fax"
			email: string called "e-Mail"
			message: note called "Message"
			viewbounds := bounds { 0 0 200 30 }
			}
	data: note called "Note"
	viewstationary := symbol "PhoneMsg:PaperPak"
	height := value 200
	}

class "GraphPaper:PaperPak" called "PP Graph Paper" of "Notes" contains
	{
	timestamp: datetime called "Date" default ""
	title: string called "Title"
	gridWidth: integer called "Grid Width"
	data: note called "Note" with options { "required" "automatic" }
	viewstationary := symbol "GraphPaper:PaperPak"
	height := value 200
	}
	
class "BlankPaper:PaperPak" called "PP Blank Paper" of "Notes" contains
	{
	timestamp: datetime called "Date" default ""
	title: string called "Title"
	data: note called "Note" with options { "required" "automatic" }
	viewstationary := symbol "BlankPaper:PaperPak"
	height := value 200
	}
